palindrome word in qbasic